home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / kommunik / ds0423 / dbbs790s.exe / INSTALL.BAT < prev    next >
DOS Batch File  |  1993-05-11  |  45KB  |  1,058 lines
  1. @echo off
  2. echo 
  3. cls
  4. rem                      ╔════════════════════════════════════╕
  5. rem                      ║        Installationsbatch          │▐██
  6. rem                      ║    ────────── für ────────────     │▐██
  7. rem                      ║    ───── TELIX-DBBS 7.90 ─────     │▐██
  8. rem                      ║    ──── Shareware-Version ────     │▐██
  9. rem                      ║    ───────────────────────────     │▐██
  10. rem                      ║     (C) HaSch-Soft 11.05.1993      │▐██
  11. rem                      ║            Version 3.3             │▐██
  12. rem                      ╙────────────────────────────────────┘▐██
  13. rem                        ███████████████████████████████████████
  14.  
  15. :Bild_1
  16.   cls
  17.   echo.
  18.   echo.
  19.   echo                   I N S T A L L A T I O N S B A T C H    (V3.3)
  20.   echo              ┌─────────────────────────────────────────────────┐
  21.   echo              │                                                 │▐██
  22.   echo              │        » Die kleine Mail-Box für TELIX «        │▐██
  23.   echo              │        ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀        │▐██
  24.   echo              │          ┌───────────────────────────┐          │▐██
  25.   echo              │          │  (C) Deutsche Version by  │          │▐██
  26.   echo              │          │  *** Hartmut Schmedt ***  │          │▐██
  27.   echo              │          │  *** & Rando Voßberg ***  │          │▐██
  28.   echo              │          └───────────────────────────┘          │▐██
  29.   echo              │                Autoren-Adressen:                │▐██
  30.   echo              │                                                 │▐██
  31.   echo              │▐ Rando Voßberg        │ Hartmut Schmedt        ▌│▐██
  32.   echo              │▐ Hiddinger Str. 49    │ Wilh.-Busch-Str. 12    ▌│▐██
  33.   echo              │▐ D-27374 Visselhövede │ D-27283 Verden (Aller) ▌│▐██
  34.   echo              │                                                 │▐██
  35.   echo              └─────────────────────────────────────────────────┘▐██
  36.   echo               █████████████████████████████████████████████████████
  37.   echo.
  38.   echo               Weiter mit beliebiger Taste...
  39.   pause > nul
  40.  
  41. :Bild_2
  42.   cls
  43.   echo.
  44.   echo           ┌────────────────────────────────────────────────────────╖
  45.   echo           │ Dieses Programm soll die Installation des DBBS etwas   ║
  46.   echo           │ vereinfachen.                                          ║
  47.   echo           │ Es erkennt automatisch, ob das DBBS bereits vorhanden  ║
  48.   echo           │ ist, oder nicht, und führt entsprechend eine UPDATE-   ║
  49.   echo           │ oder eine NEU-Installation durch.                      ║
  50.   echo           │                                                        ║
  51.   echo           │ ██         ██▓▒░ A C H T U N G ! ! ! ░▒▓██         ██  ║
  52.   echo           │ ██ » INSTALL nicht mit 4DOS benutzen!!!            ██  ║
  53.   echo           │ ██ » INSTALL nicht im TELIX-Verzeichnis starten!!! ██  ║
  54.   echo           │ ██ » Datenträger darf NICHT schreibgeschützt sein! ██  ║
  55.   echo           │                                                        ║
  56.   echo           │ Alle Vorgänge der Installation werden in der Datei     ║
  57.   echo           │ INSTALL.TXT  (Verzeichnis \DBBSNEU!) protokolliert.    ║
  58.   echo           │ Diese Datei enthält auch spezielle Hinweise über die   ║
  59.   echo           │ Anpassung verschiedener Dateien.                       ║
  60.   echo           │                                                        ║
  61.   echo           │ Zudem ist es sehr ratsam, sich das Handbuch DBBS.DOC   ║
  62.   echo           │ ausdrucken zu lassen und sorgfältig zu lesen!          ║
  63.   echo           ╘════════════════════════════════════════════════════════╝
  64.   echo.
  65.   echo            Weiter mit beliebiger Taste...
  66.   pause > nul
  67.  
  68. :------------------------------------------------------------------------------
  69.  
  70. REM Prüfroutinen / Initialisierung
  71.  
  72. REM TELIX-Verzeichnis
  73.   if exist TELIX.EXE goto TLX_Fehler
  74.  
  75. REM Schreibschutz
  76.   echo TEST> TEST.INS
  77.   if not exist TEST.INS goto Disk_Fehler
  78.   del TEST.INS
  79.  
  80. REM Environment / Pfad sichern
  81.   echo @echo off> ALTPFAD.BAT
  82.   path>> ALTPFAD.BAT
  83.   set path=
  84.   set ins=TEST
  85.   if not %ins% == TEST goto Inst_Fehler
  86.   set vrs=%ins%
  87.   if not %vrs% == TEST goto Inst_Fehler
  88.   set vn=%ins%
  89.   if not %vn% == TEST goto Inst_Fehler
  90.  
  91.   path %1 > nul
  92.   set lw=%path%
  93.   path %2 > nul
  94.   if "%2" == "" set path=
  95.   set pf=%path%
  96.   set path=
  97.  
  98. REM aktuelle Version:
  99.   set vrs=790
  100.   set vn=7.90
  101.   if not exist DBBSVERS.%vrs% goto Vers_nicht_da
  102.   for %%C in (LHA.EXE UT.COM DBBS.LZH DOORWAY.LZH DBBS.DOC PRINTDOC.BAT) do if not exist %%C goto Datei_nicht_da
  103.  
  104. :------------------------------------------------------------------------------
  105.  
  106. :Bild_3
  107.   cls
  108.   echo.
  109.   echo           ┌────────────────────────────────────────────────────────╖
  110.   echo           │ Das Installationsprogramm benötigt als GETRENNTE Para- ║
  111.   echo           │ meter das Laufwerk und den Pfad des Verzeichnisses von ║
  112.   echo           │ TELIX! (Dabei darf ein abschließender Backslash (\)    ║
  113.   echo           │ !!! NICHT !!! mit eingegeben werden!)                  ║
  114.   echo           │    ▀▀▀▀▀▀▀                                             ║
  115.   echo           │ ▒▓█  Beispiel:  INSTALL c: \telix                  █▓▒ ║
  116.   echo           │ ▒▓█  ▀▀▀▀▀▀▀▀▀                                  █▓▒ ║
  117.   echo           │ ▒▓█                     │ ║   └─ Pfad              █▓▒ ║
  118.   echo           │ ▒▓█                     │ ╚═════ !!! Leerfeld !!!  █▓▒ ║
  119.   echo           │ ▒▓█                     └─────── Laufwerk          █▓▒ ║
  120.   echo           ╘════════════════════════════════════════════════════════╝
  121.   echo.
  122.  
  123.   if "%1" == "" goto Ende
  124.   echo             TELIX-Laufwerk:  %lw%
  125.   if "%2" == "" echo             TELIX-Pfad    :  \
  126.   if not "%2" == "" echo             TELIX-Pfad    :  %pf%
  127.   echo.
  128.   ut a             Sind die Eingaben richtig (J/N)?
  129.  
  130.   if not errorlevel 1 goto Ende
  131.   if not "%2" == "" goto TELIX_pruefen
  132.   echo 
  133.   echo             ▄  ▄  ▄▄  ▄  ▄▄▄ ▄
  134.   echo             █▄▄█ █  █ █   █  █   Es wurde kein TELIX-Pfad angegeben!
  135.   echo             █  █ █▀▀█ █▄▄ █  ▄   ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  136.   echo.
  137.   ut a             Korrektur der Eingaben (J/N)?
  138.  
  139.   if errorlevel 1 goto Ende
  140.  
  141. :------------------------------------------------------------------------------
  142.  
  143. :TELIX_pruefen
  144.   cls
  145.   if not exist %1%2\TELIX.EXE goto TELIX_nicht_da
  146.  
  147. :TELIX_da
  148.   echo.
  149.   echo           ┌────────────────────────────────────────────────────────╖
  150.   echo           │ TELIX vorhanden...                                     ║
  151.   echo           ╘════════════════════════════════════════════════════════╝
  152.  
  153.  
  154.   set ins=NEU
  155.   if not exist %1%2\DBBS.CNF goto NEU_Inst_anzeigen
  156.  
  157. REM Alte Version ermitteln
  158.   set ins=?.??
  159.   if exist %1%2\DBBSVERS.790 set ins=7.90
  160.   if exist %1%2\DBBSVERS.782 set ins=7.82
  161.   if exist %1%2\DBBSVERS.781 set ins=7.81
  162.   if exist %1%2\DBBSVERS.780 set ins=7.80
  163.   if exist %1%2\DBBSVERS.77A set ins=7.7A
  164.   if exist %1%2\DBBSVERS.770 set ins=7.70
  165.   if exist %1%2\DBBSVERS.763 set ins=7.63
  166.   if exist %1%2\DBBSVERS.762 set ins=7.62
  167.   if exist %1%2\DBBSVERS.761 set ins=7.61
  168.   if exist %1%2\DBBSVERS.760 set ins=7.60
  169.   if exist %1%2\DBBSVERS.754 set ins=7.54
  170.   if exist %1%2\DBBSVERS.753 set ins=7.53
  171.   if exist %1%2\DBBSVERS.752 set ins=7.52
  172.   if exist %1%2\DBBSVERS.751 set ins=7.51
  173.   if exist %1%2\DBBSVERS.750 set ins=7.50
  174.  
  175.   if exist %1%2\DBBSNEU!\MAILBOX.TXT goto UPD_Ueberschreib
  176.   goto UPD_Inst_anzeigen
  177.  
  178. :------------------------------------------------------------------------------
  179.  
  180. :NEU_Inst_anzeigen
  181.  
  182.   echo           ┌───────────────────────────────▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄─╖
  183.   echo           │ DBBS nicht vorhanden...       █ N E U - Installation █ ║
  184.   echo           │───────────────────────────────▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀─║
  185.   echo           │ Es werden nun die erforderlichen Verzeichnisse ange-   ║
  186.   echo           │ legt und alle zum DBBS gehörigen Dateien kopiert.      ║
  187.   echo           │                                                        ║
  188.   echo           │ Dateien, die unter gleichem Namen bereits existieren,  ║
  189.   echo           │ werden nach *.ALT umbenannt.                           ║
  190.   echo           │                                                        ║
  191.   echo           │        Die Installation bitte NICHT abbrechen!         ║
  192.   echo           │                                                        ║
  193.   echo           ╘════════════════════════════════════════════════════════╝
  194.   echo.
  195.   goto Neu_Dat
  196.  
  197. :------------------------------------------------------------------------------
  198.  
  199. :UPD_Ueberschreib
  200.  
  201.   echo           ┌────────────────────────────────────────────────────────╖
  202.   echo           │ DBBS Version %ins% bereits vorhanden...                 ║
  203.   echo           │────────────────────────────────────────────────────────║
  204.   echo           │                   ! A C H T U N G !                    ║
  205.   echo           │      Durch Installation dieser Shareware-Version       ║
  206.   echo           │         geht eine eventuelle Registrierung der         ║
  207.   echo           │              vorhandenen Version verloren!             ║
  208.   echo           ╘════════════════════════════════════════════════════════╝
  209.   echo.
  210.   ut a                      Installation abbrechen (J/N)?
  211.   echo.
  212.   if errorlevel 1 goto Abbruch
  213.  
  214. :UPD_Inst_anzeigen
  215.  
  216.   echo           ┌────────────────────────────────────────▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄─╖
  217.   echo           │ DBBS Version %ins% bereits vorhanden... █ U P D A T E █ ║
  218.   echo           │────────────────────────────────────────▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀─║
  219.   echo           │ Es werden die seit der Version %ins% geänderten Dateien ║
  220.   echo           │ nach *.ALT umbenannt und entsprechend erneuert.        ║
  221.   echo           │                                                        ║
  222.   echo           │        Die Installation bitte NICHT abbrechen!         ║
  223.   echo           │                                                        ║
  224.   echo           ╘════════════════════════════════════════════════════════╝
  225.   echo.
  226.  
  227. :------------------------------------------------------------------------------
  228.  
  229. :Neu_Dat
  230.   echo            Folgende Dateien werden ggf. überschrieben:
  231.   for %%C in (SLC CNF HOST AUTO EXDO FAX MENU MSG DRW) do if exist %%C.INS del %%C.INS
  232.  
  233.   if %ins% == 7.90 goto UPD_790
  234.   if %ins% == 7.82 goto UPD_781
  235.   if %ins% == 7.81 goto UPD_781
  236.   if %ins% == 7.80 goto UPD_753
  237.   if %ins% == 7.7A goto UPD_753
  238.   if %ins% == 7.70 goto UPD_753
  239.   if %ins% == 7.63 goto UPD_753
  240.   if %ins% == 7.62 goto UPD_753
  241.   if %ins% == 7.61 goto UPD_753
  242.   if %ins% == 7.60 goto UPD_753
  243.   if %ins% == 7.54 goto UPD_753
  244.   if %ins% == 7.53 goto UPD_753
  245.   if %ins% == 7.52 goto UPD_752
  246.   if %ins% == 7.51 goto UPD_751
  247.   if %ins% == 7.50 goto UPD_750
  248.   if %ins% == ?.?? goto UPD_???
  249.  
  250. :NEU_000
  251.   for %%C in (USERPASS DBBS_SLC) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  252.   for %%C in (DBBS_SLC LOGIN) do if exist %1%2\SCRIPT\%%C.ALT echo            - SCRIPT\%%C.ALT
  253.   echo √> MSG.INS
  254.   for %%C in (ERSTE START NEULING) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  255.   for %%C in (GELEGEN LETZTE LISTE) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  256.  
  257. :UPD_???
  258.   echo √> AUTO.INS
  259.   for %%C in (BAT EIN AUS) do if exist AUTO_%%C.ALT echo            - AUTO_%%C.ALT
  260.   echo √> FAX.INS
  261.   for %%C in (DBBSFAX) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  262.  
  263. :UPD_750
  264.   echo √> CNF.INS
  265.   for %%C in (DBBS_CNF) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  266.  
  267. :UPD_751
  268.   echo √> MENU.INS
  269.   for %%C in (MENU NEUMENU) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  270.  
  271. :UPD_752
  272.  
  273. :UPD_753
  274.  
  275. :UPD_781
  276.   echo √> HOST.INS
  277.   for %%C in (HOST) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  278.   echo √> DRW.INS
  279.   for %%C in (DRWY_EXE DRWY_DOC CLOSEPRT) do if exist %1%2\DOORWAY\%%C.ALT echo            - %%C.ALT
  280.   echo √> EXDO.INS
  281.   for %%C in (DBBSDOS DBBSEXT) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  282.   echo √> RUVO.INS
  283.   for %%C in (DBBSRUF DBBSVOI) do if exist %1%2\%%C.ALT echo            - %%C.ALT
  284.  
  285. :UPD_790
  286.   echo √> SLC.INS
  287.  
  288.  
  289.   echo            -
  290.   ut a            Installation starten (J/N)?
  291.  
  292.   if not errorlevel 1 goto Abbruch
  293.   cls
  294.  
  295. :------------------------------------------------------------------------------
  296.  
  297. :Datei_erstellen
  298.   echo - Kopiere Dateien nach %1%2\DBBSNEU!
  299.   if not exist %1%2\DBBSNEU!\*.* md %1%2\DBBSNEU!
  300.   if exist %1%2\DBBSNEU!\*.INS del %1%2\DBBSNEU!\*.INS
  301.   if exist *.INS copy *.INS %1%2\DBBSNEU! >nul
  302.   for %%C in (SLC CNF HOST AUTO EXDO RUVO FAX MENU MSG DRW) do if exist %%C.INS del %%C.INS
  303.   copy LHA.EXE %1%2\DBBSNEU! >nul
  304.   copy UT.COM %1%2\DBBSNEU! >nul
  305.   copy DBBS.LZH %1%2\DBBSNEU! >nul
  306.   copy DOORWAY.LZH %1%2\DBBSNEU! >nul
  307.   copy DBBS.DOC %1%2\DBBSNEU! >nul
  308.   copy PRINTDOC.BAT %1%2\DBBSNEU! >nul
  309.   copy ALTPFAD.BAT %1%2\DBBSNEU! >nul
  310.   del ALTPFAD.BAT
  311.   if exist DBBS%vrs%S.EXE copy DBBS%vrs%S.EXE %1%2\DBBSNEU! >nul
  312.  
  313. :Verz_1
  314.   if not exist UPDATE.TXT goto Verz_2
  315.   copy UPDATE.TXT %1%2\DBBSNEU! >nul
  316.   copy MAILBOX.TXT %1%2\DBBSNEU! >nul
  317.  
  318. :Verz_2
  319.   if not exist DBBSBEST.TXT goto Verz_3
  320.   copy DBBSBEST.TXT %1%2\DBBSNEU! >nul
  321.  
  322. :Verz_3
  323. REM  Hier Lw/Verz.-Wechsel nach TELIX
  324.   %1
  325.   cd\
  326.   if not "%2" == "" cd%2
  327.  
  328.   echo   Installation des DBBS - Kleine Mailbox für TELIX - Version %vn%> DBBSNEU!\INSTALL.TXT
  329.   echo   ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀>> DBBSNEU!\INSTALL.TXT
  330.   echo.>> DBBSNEU!\INSTALL.TXT
  331.   if "%2" == "" echo - TELIX-Verzeichnis: %lw%\>> DBBSNEU!\INSTALL.TXT
  332.   if not "%2" == "" echo - TELIX-Verzeichnis: %lw%%pf%>> DBBSNEU!\INSTALL.TXT
  333.   if %ins% == NEU echo - DBBS.CNF ist nicht vorhanden; NEUINSTALLATION erkannt.>> DBBSNEU!\INSTALL.TXT
  334.   if not %ins% == NEU echo - DBBS.CNF ist vorhanden; UPDATE erkannt.>> DBBSNEU!\INSTALL.TXT
  335.   echo.>> DBBSNEU!\INSTALL.TXT
  336.   echo Alle neuen Dateien sind bezüglich der Verzeichnisse bereits angepaßt.>> DBBSNEU!\INSTALL.TXT
  337.   echo Auf die Dateien, in denen spezielle Anpassungen vorgenommen werden müssen,>> DBBSNEU!\INSTALL.TXT
  338.   echo wird jeweils gesondert hingewiesen.>> DBBSNEU!\INSTALL.TXT
  339.   echo.>> DBBSNEU!\INSTALL.TXT
  340.  
  341.   DBBSNEU!\lha e /m /c DBBSNEU!\DBBS DBBSNEU!\
  342.   echo.
  343.  
  344.   echo - Erstelle AUTOHOST.AUS
  345.     echo @echo off> DBBSNEU!\AUTOHOST.AUS
  346.     echo.>> DBBSNEU!\AUTOHOST.AUS
  347.     echo REM Wechsel zum TELIX-Laufwerk>> DBBSNEU!\AUTOHOST.AUS
  348.     echo %lw%>> DBBSNEU!\AUTOHOST.AUS
  349.     echo.>> DBBSNEU!\AUTOHOST.AUS
  350.     echo REM Wechsel in das TELIX-Verzeichnis>> DBBSNEU!\AUTOHOST.AUS
  351.     if "%2" == "" echo CD\>> DBBSNEU!\AUTOHOST.AUS
  352.     if not "%2" == "" echo CD%pf%>> DBBSNEU!\AUTOHOST.AUS
  353.     echo.>> DBBSNEU!\AUTOHOST.AUS
  354.     echo REM Aufruf des DBBS>> DBBSNEU!\AUTOHOST.AUS
  355.     echo HOST AUTO>> DBBSNEU!\AUTOHOST.AUS
  356.  
  357.   echo - Erstelle DBBS.CNF
  358.     echo System: Offen> DBBSNEU!\DBBS.CNF
  359.     echo %lw%%pf%\HOSTDWN\>> DBBSNEU!\DBBS.CNF
  360.     echo %lw%%pf%\USERDWN\>> DBBSNEU!\DBBS.CNF
  361.     echo %lw%%pf%\HOSTUP\>> DBBSNEU!\DBBS.CNF
  362.     echo %lw%%pf%\WICHTIG\>> DBBSNEU!\DBBS.CNF
  363.     echo 2400>> DBBSNEU!\DBBS.CNF
  364.     echo 2>> DBBSNEU!\DBBS.CNF
  365.     echo SysOp-Pass>> DBBSNEU!\DBBS.CNF
  366.     echo Level-Pass>> DBBSNEU!\DBBS.CNF
  367.  
  368.   echo - Erstelle DBBSDOS.BAT
  369.     echo @echo off> DBBSNEU!\DBBSDOS.BAT
  370.     echo.>> DBBSNEU!\DBBSDOS.BAT
  371.     echo REM ███ %%1 = "L" oder "M", %%2 = Port, %%3 = BAUD, %%4 = USER ███>> DBBSNEU!\DBBSDOS.BAT
  372.     echo.>> DBBSNEU!\DBBSDOS.BAT
  373.     echo :Pfad>> DBBSNEU!\DBBSDOS.BAT
  374.     echo CD%pf%\DOORWAY>> DBBSNEU!\DBBSDOS.BAT
  375.     echo.>> DBBSNEU!\DBBSDOS.BAT
  376.     echo if "%%1" == "L" goto Lokal>> DBBSNEU!\DBBSDOS.BAT
  377.     echo if "%%1" == "M" goto Modem>> DBBSNEU!\DBBSDOS.BAT
  378.     echo goto Fehler1>> DBBSNEU!\DBBSDOS.BAT
  379.     echo.>> DBBSNEU!\DBBSDOS.BAT
  380.     echo :Lokal>> DBBSNEU!\DBBSDOS.BAT
  381.     echo doorway local /m:999 /o:t /s:* /g:on /v:d^u /k:0 /b:z /r:^x /c:dos>> DBBSNEU!\DBBSDOS.BAT
  382.     echo goto Ende>> DBBSNEU!\DBBSDOS.BAT
  383.     echo.>> DBBSNEU!\DBBSDOS.BAT
  384.     echo :Modem>> DBBSNEU!\DBBSDOS.BAT
  385.     echo set p=>> DBBSNEU!\DBBSDOS.BAT
  386.     echo if "%%2" == "" goto Fehler2>> DBBSNEU!\DBBSDOS.BAT
  387.     echo if "%%2" == "1" set p=03f8:4>> DBBSNEU!\DBBSDOS.BAT
  388.     echo if "%%2" == "2" set p=02f8:3>> DBBSNEU!\DBBSDOS.BAT
  389.     echo if "%%2" == "3" set p=03e8:4>> DBBSNEU!\DBBSDOS.BAT
  390.     echo if "%%2" == "4" set p=02e8:3>> DBBSNEU!\DBBSDOS.BAT
  391.     echo doorway port:%%p%% /m:999 /o:t /s:* /g:on /v:d^u /k:0 /b:z /r:^x /c:dos>> DBBSNEU!\DBBSDOS.BAT
  392.     echo set p=>> DBBSNEU!\DBBSDOS.BAT
  393.     echo if errorlevel 3 goto Ende>> DBBSNEU!\DBBSDOS.BAT
  394.     echo if errorlevel 2 closeprt %%2>> DBBSNEU!\DBBSDOS.BAT
  395.     echo goto Ende>> DBBSNEU!\DBBSDOS.BAT
  396.     echo.>> DBBSNEU!\DBBSDOS.BAT
  397.     echo :Fehler1>> DBBSNEU!\DBBSDOS.BAT
  398.     echo echo.>> DBBSNEU!\DBBSDOS.BAT
  399.     echo echo FEHLER! Ungültiger Aufruf!>> DBBSNEU!\DBBSDOS.BAT
  400.     echo echo.>> DBBSNEU!\DBBSDOS.BAT
  401.     echo echo Für Lokal mit Parameter "L", für Modem mit "M" starten.>> DBBSNEU!\DBBSDOS.BAT
  402.     echo echo.>> DBBSNEU!\DBBSDOS.BAT
  403.     echo goto Ende>> DBBSNEU!\DBBSDOS.BAT
  404.     echo.>> DBBSNEU!\DBBSDOS.BAT
  405.     echo :Fehler2>> DBBSNEU!\DBBSDOS.BAT
  406.     echo echo.>> DBBSNEU!\DBBSDOS.BAT
  407.     echo echo FEHLER! Fehlender Parameter für den COM-Port.>> DBBSNEU!\DBBSDOS.BAT
  408.     echo echo.>> DBBSNEU!\DBBSDOS.BAT
  409.     echo.>> DBBSNEU!\DBBSDOS.BAT
  410.     echo :Ende>> DBBSNEU!\DBBSDOS.BAT
  411.  
  412.   echo - Erstelle DBBSEXT.BAT
  413.     echo @echo off> DBBSNEU!\DBBSEXT.BAT
  414.     echo.>> DBBSNEU!\DBBSEXT.BAT
  415.     echo REM ███ %%1 = "L" oder "M", %%2 = Port, %%3 = BAUD, %%4 = USER ███>> DBBSNEU!\DBBSEXT.BAT
  416.     echo.>> DBBSNEU!\DBBSEXT.BAT
  417.     echo :Pfad>> DBBSNEU!\DBBSEXT.BAT
  418.     echo CD%pf%\DOORWAY>> DBBSNEU!\DBBSEXT.BAT
  419.     echo.>> DBBSNEU!\DBBSEXT.BAT
  420.     echo if "%%1" == "L" goto Lokal>> DBBSNEU!\DBBSEXT.BAT
  421.     echo if "%%1" == "M" goto Modem>> DBBSNEU!\DBBSEXT.BAT
  422.     echo goto Fehler1>> DBBSNEU!\DBBSEXT.BAT
  423.     echo.>> DBBSNEU!\DBBSEXT.BAT
  424.     echo :Lokal>> DBBSNEU!\DBBSEXT.BAT
  425.     echo doorway local /m:20 /o:t /s:* /g:on /v:d^u /b:z /t:^c /i:EXTERN /r:^x>> DBBSNEU!\DBBSEXT.BAT
  426.     echo goto Ende>> DBBSNEU!\DBBSEXT.BAT
  427.     echo.>> DBBSNEU!\DBBSEXT.BAT
  428.     echo :Modem>> DBBSNEU!\DBBSEXT.BAT
  429.     echo set p=>> DBBSNEU!\DBBSEXT.BAT
  430.     echo if "%%2" == "" goto Fehler2>> DBBSNEU!\DBBSEXT.BAT
  431.     echo if "%%2" == "1" set p=03f8:4>> DBBSNEU!\DBBSEXT.BAT
  432.     echo if "%%2" == "2" set p=02f8:3>> DBBSNEU!\DBBSEXT.BAT
  433.     echo if "%%2" == "3" set p=03e8:4>> DBBSNEU!\DBBSEXT.BAT
  434.     echo if "%%2" == "4" set p=02e8:3>> DBBSNEU!\DBBSEXT.BAT
  435.     echo doorway port:%%p%% /m:20 /o:t /s:* /g:on /v:d^u /b:z /t:^c /i:EXTERN /r:^x>> DBBSNEU!\DBBSEXT.BAT
  436.     echo set p=>> DBBSNEU!\DBBSEXT.BAT
  437.     echo if errorlevel 3 goto Ende>> DBBSNEU!\DBBSEXT.BAT
  438.     echo if errorlevel 2 closeprt %%2>> DBBSNEU!\DBBSEXT.BAT
  439.     echo goto Ende>> DBBSNEU!\DBBSEXT.BAT
  440.     echo.>> DBBSNEU!\DBBSEXT.BAT
  441.     echo :Fehler1>> DBBSNEU!\DBBSEXT.BAT
  442.     echo echo.>> DBBSNEU!\DBBSEXT.BAT
  443.     echo echo FEHLER! Ungültiger Aufruf!>> DBBSNEU!\DBBSEXT.BAT
  444.     echo echo.>> DBBSNEU!\DBBSEXT.BAT
  445.     echo echo Für Lokal mit Parameter "L", für Modem mit "M" starten.>> DBBSNEU!\DBBSEXT.BAT
  446.     echo echo.>> DBBSNEU!\DBBSEXT.BAT
  447.     echo goto Ende>> DBBSNEU!\DBBSEXT.BAT
  448.     echo.>> DBBSNEU!\DBBSEXT.BAT
  449.     echo :Fehler2>> DBBSNEU!\DBBSEXT.BAT
  450.     echo echo.>> DBBSNEU!\DBBSEXT.BAT
  451.     echo echo FEHLER! Fehlender Parameter für den COM-Port.>> DBBSNEU!\DBBSEXT.BAT
  452.     echo echo.>> DBBSNEU!\DBBSEXT.BAT
  453.     echo.>> DBBSNEU!\DBBSEXT.BAT
  454.     echo :Ende>> DBBSNEU!\DBBSEXT.BAT
  455.  
  456.   echo - Erstelle DBBSFAX.BAT
  457.     echo @echo off> DBBSNEU!\DBBSFAX.BAT
  458.     echo.>> DBBSNEU!\DBBSFAX.BAT
  459.     echo REM ███  Batch-Datei zum Aufruf eines FAX-Programms  ███>> DBBSNEU!\DBBSFAX.BAT
  460.     echo.>> DBBSNEU!\DBBSFAX.BAT>> DBBSNEU!\DBBSFAX.BAT
  461.     echo REM            ███ %%1 = Port, %%2 = BAUD ███>> DBBSNEU!\DBBSFAX.BAT
  462.     echo.>> DBBSNEU!\DBBSFAX.BAT>> DBBSNEU!\DBBSFAX.BAT
  463.     echo REM  An dieser Stelle erfolgt ggf. der Verzeichniswechsel>> DBBSNEU!\DBBSFAX.BAT
  464.     echo REM  zum FAX-Programm, sowie dessen Aufruf.>> DBBSNEU!\DBBSFAX.BAT
  465.     echo.>> DBBSNEU!\DBBSFAX.BAT>> DBBSNEU!\DBBSFAX.BAT
  466.     echo REM  Sollte ein Laufwerkswechsel nötig sein, muß anschließend unbedingt>> DBBSNEU!\DBBSFAX.BAT
  467.     echo REM  wieder auf das TELIX-Laufwerk zurückgewechselt werden! Der Pfad wird>> DBBSNEU!\DBBSFAX.BAT
  468.     echo REM  vom DBBS wiederhergestellt>> DBBSNEU!\DBBSFAX.BAT
  469.  
  470.   echo - Erstelle DBBSRUF.BAT
  471.     echo @echo off> DBBSNEU!\DBBSRUF.BAT
  472.     echo.>> DBBSNEU!\DBBSRUF.BAT
  473.     echo REM ███  Batch-Datei zum Aufruf eines Ruf-Annahme-Programms  ███>> DBBSNEU!\DBBSRUF.BAT
  474.     echo.>> DBBSNEU!\DBBSRUF.BAT
  475.     echo REM  An dieser Stelle erfolgt ggf. der Verzeichniswechsel>> DBBSNEU!\DBBSRUF.BAT
  476.     echo REM  zum Ruf-Annahme-Programm (VOICE-Software), sowie dessen Aufruf.>> DBBSNEU!\DBBSRUF.BAT
  477.     echo.>> DBBSNEU!\DBBSRUF.BAT
  478.     echo REM  Anschließend muß unbedingt wieder auf das TELIX-Laufwerk und>> DBBSNEU!\DBBSRUF.BAT
  479.     echo REM  Verzeichnis zurückgewechselt werden!!!>> DBBSNEU!\DBBSRUF.BAT
  480.  
  481.   echo - Erstelle DBBSVOI.INI
  482.     echo AT S0=0 X7 S2=255 #B1+FCLASS=6> DBBSNEU!\DBBSVOI.INI
  483.     echo.>> DBBSNEU!\DBBSVOI.INI
  484.     echo REM  Obige Modem-Konfiguration ist ausschließlich für den Wechsel von>> DBBSNEU!\DBBSVOI.INI
  485.     echo REM  VOICE auf DATA! (Hier vorgefertigt für ein ZyXEL-Modem)>> DBBSNEU!\DBBSVOI.INI
  486.  
  487.   echo - Erstelle EXTERN
  488.     echo Hallo Freak's !!!> DBBSNEU!\EXTERN
  489.     echo.>> DBBSNEU!\EXTERN
  490.     echo Über verschiedene "DOORs" gelangt man in nachstehende Programme:>> DBBSNEU!\EXTERN
  491.     echo.>> DBBSNEU!\EXTERN
  492.     echo 1. Mühle - Spiel>> DBBSNEU!\EXTERN
  493.     echo.>> DBBSNEU!\EXTERN
  494.     echo.>> DBBSNEU!\EXTERN
  495.     echo NICHT VERGESSEN: Das Terminal-Programm auf DOORWAY-Mode umzustellen!>> DBBSNEU!\EXTERN
  496.     echo ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀>> DBBSNEU!\EXTERN
  497.     echo                                                 bei TELIX: [ALT][9] >> DBBSNEU!\EXTERN
  498.     echo.>> DBBSNEU!\EXTERN
  499.     echo M:Welches Spiel? (1; "Q" bricht ab): >> DBBSNEU!\EXTERN
  500.     echo.>> DBBSNEU!\EXTERN
  501.     echo /p:%lw%%pf%\DOORWAY\MUEHLE.COM>> DBBSNEU!\EXTERN
  502.  
  503. :------------------------------------------------------------------------------
  504.  
  505. :Start_Inst
  506.   echo.
  507.  
  508. REM Beginn der Installation des DBBS
  509. REM (im TELIX-Verzeichnis)
  510.  
  511. :SLC_0
  512.   if not exist DBBSNEU!\SLC.INS goto SLC_99
  513.   echo - Installiere DBBS.SLC
  514.   if %ins% == NEU goto SLC_N_1
  515.   if exist DBBS.SLC goto SLC_U_2
  516.   if exist SCRIPT\DBBS.SLC goto SLC_U_3
  517.  
  518. :SLC_U_1
  519.   copy DBBSNEU!\DBBS.SLC >nul
  520.  
  521.   echo - Das DBBS-Programm DBBS.SLC wurde nicht gefunden und daher>> DBBSNEU!\INSTALL.TXT
  522.   echo   in das TELIX-Verzeichnis kopiert.>> DBBSNEU!\INSTALL.TXT
  523.  
  524.   goto SLC_1
  525.  
  526. :SLC_U_2
  527.   copy DBBSNEU!\DBBS.SLC >nul
  528.  
  529.   echo - Das DBBS-Programm DBBS.SLC wurde im TELIX-Verzeichnis>> DBBSNEU!\INSTALL.TXT
  530.   echo   vorgefunden und ersetzt.>> DBBSNEU!\INSTALL.TXT
  531.  
  532.   goto SLC_1
  533.  
  534. :SLC_U_3
  535.   copy DBBSNEU!\DBBS.SLC SCRIPT >nul
  536.  
  537.   echo - Das DBBS-Programm DBBS.SLC wurde im Verzeichnis>> DBBSNEU!\INSTALL.TXT
  538.   echo   %lw%%pf%\SCRIPT vorgefunden und ersetzt.>> DBBSNEU!\INSTALL.TXT
  539.   echo   Dieses Verzeichnis muß in TELIX als Script-Verzeichnis definiert sein!>> DBBSNEU!\INSTALL.TXT
  540.   goto SLC_1
  541.  
  542. :SLC_N_1
  543.   if exist SCRIPT\*.* goto SLC_N_2
  544.   if exist DBBS.SLC copy DBBS.SLC DBBS_SLC.ALT >nul
  545.   copy DBBSNEU!\DBBS.SLC >nul
  546.  
  547.   echo - Das DBBS-Programm DBBS.SLC wurde in das TELIX-Verzeichnis kopiert.>> DBBSNEU!\INSTALL.TXT
  548.  
  549.   md SCRIPT
  550.   goto SLC_1
  551.  
  552. :SLC_N_2
  553.   if exist SCRIPT\DBBS.SLC copy SCRIPT\DBBS.SLC SCRIPT\DBBS_SLC.ALT >nul
  554.   copy DBBSNEU!\DBBS.SLC SCRIPT >nul
  555.  
  556.   echo - Das DBBS-Programm DBBS.SLC wurde in das Verzeichnis>> DBBSNEU!\INSTALL.TXT
  557.   echo   %lw%%pf%\SCRIPT kopiert.>> DBBSNEU!\INSTALL.TXT
  558.   echo.>> DBBSNEU!\INSTALL.TXT
  559.   echo   WICHTIG! Dieses Verzeichnis muß in TELIX als Script-Verzeichnis definiert>> DBBSNEU!\INSTALL.TXT
  560.   echo            werden. Sollte bereits ein anderes SCRIPT-Verzeichnis vorliegen,>> DBBSNEU!\INSTALL.TXT
  561.   echo            muß die Datei DBBS.SLC dorthin, oder direkt in das TELIX->> DBBSNEU!\INSTALL.TXT
  562.   echo            Verzeichnis verschoben werden.>> DBBSNEU!\INSTALL.TXT
  563.  
  564. :SLC_1
  565.   echo.>> DBBSNEU!\INSTALL.TXT
  566.   del DBBSNEU!\SLC.INS
  567.  
  568. :SLC_99
  569. :------------------------------------------------------------------------------
  570.  
  571. :CNF_0
  572.   if not exist DBBSNEU!\CNF.INS goto CNF_99
  573.   echo - Installiere DBBS.CNF
  574.   if %ins% == NEU goto CNF_N_1
  575.  
  576. :CNF_U_1
  577.   copy DBBS.CNF DBBS_CNF.ALT >nul
  578.   if %ins% == 7.50 goto CNF_U_2
  579.   copy DBBSNEU!\DBBS.CNF >nul
  580.  
  581.   echo - Die Datei DBBS.CNF wurde nach DBBS_CNF.ALT umbenannt und erneuert.>> DBBSNEU!\INSTALL.TXT
  582.   echo.>> DBBSNEU!\INSTALL.TXT
  583.   echo   WICHTIG! Hier unbedingt die nötigen Einstellungen wieder vornehmen!>> DBBSNEU!\INSTALL.TXT
  584.   echo            Auf eine eventuell geänderte Struktur der Datei achten!>> DBBSNEU!\INSTALL.TXT
  585.  
  586.   goto CNF_1
  587.  
  588. :CNF_U_2
  589.   echo System: Offen>DBBS.CNF
  590.   type DBBS_CNF.ALT >> DBBS.CNF
  591.  
  592.   echo - Die Datei DBBS.CNF wurde nach DBBS_CNF.ALT umbenannt.>> DBBSNEU!\INSTALL.TXT
  593.   echo   An den Einstellungen in der DBBS.CNF hat sich nichts geändert, es wurde>> DBBSNEU!\INSTALL.TXT
  594.   echo   lediglich eine zusätzliche "System-Status"-Zeile eingefügt.>> DBBSNEU!\INSTALL.TXT
  595.   echo   Hinweise dazu im Handbuch DBBS.DOC>> DBBSNEU!\INSTALL.TXT
  596.  
  597.   goto CNF_1
  598.  
  599. :CNF_N_1
  600.   copy DBBSNEU!\DBBS.CNF >nul
  601.  
  602.   echo - Die Datei DBBS.CNF wurde in das TELIX-Verzeichnis kopiert.>> DBBSNEU!\INSTALL.TXT
  603.   echo.>> DBBSNEU!\INSTALL.TXT
  604.   echo   WICHTIG! Diese Datei muß für den optimalen Gebrauch des DBBS in den>> DBBSNEU!\INSTALL.TXT
  605.   echo            Zeilen 6 - 9 (Modem, Telefonsplitter, Paßwörter) angepaßt werden.>> DBBSNEU!\INSTALL.TXT
  606.   echo            Hinweise dazu finden sich im Handbuch.>> DBBSNEU!\INSTALL.TXT
  607.  
  608. :CNF_1
  609.   echo.>> DBBSNEU!\INSTALL.TXT
  610.   del DBBSNEU!\CNF.INS
  611.  
  612. :CNF_99
  613. :------------------------------------------------------------------------------
  614.  
  615. :HOST_0
  616.   if not exist DBBSNEU!\HOST.INS goto HOST_99
  617.   echo - Installiere HOST.BAT
  618.   if exist HOST.BAT copy HOST.BAT HOST.ALT >nul
  619.   copy DBBSNEU!\HOST.BAT >nul
  620.   if %ins% == NEU goto HOST_1
  621.  
  622.   echo - Die DBBS-Start-Batch HOST.BAT wurde ersetzt.>> DBBSNEU!\INSTALL.TXT
  623.   echo.>> DBBSNEU!\INSTALL.TXT
  624.  
  625. :HOST_1
  626.   del DBBSNEU!\HOST.INS
  627.  
  628. :HOST_99
  629. :------------------------------------------------------------------------------
  630.  
  631. :AUTO_0
  632.   if not exist DBBSNEU!\AUTO.INS goto AUTO_99
  633.   echo - Installiere AUTOHOST.BAT
  634.   echo - Installiere AUTOHOST.AUS
  635.   if exist AUTOEXEC.TLX del AUTOEXEC.TLX
  636.   if not exist C:\AUTOEXEC.TLX goto AUTO_1
  637.  
  638. :AUTO_Meldung
  639.   echo - Die Datei C:\AUTOEXEC.TLX ist nicht mehr erforderlich und kann gelöscht werden.>> DBBSNEU!\INSTALL.TXT
  640.   echo.>> DBBSNEU!\INSTALL.TXT
  641.  
  642. :AUTO_1
  643.   for %%C in (BAT EIN AUS) do if exist AUTOHOST.%%C copy AUTOHOST.%%C AUTO_%%C.ALT >nul
  644.   for %%C in (BAT EIN AUS) do if exist AUTOHOST.%%C del AUTOHOST.%%C
  645.   for %%C in (BAT AUS) do copy DBBSNEU!\AUTOHOST.%%C >nul
  646.  
  647.   echo - AUTOHOST.BAT und AUTOHOST.AUS wurden installiert. Diese Dateien übernehmen>> DBBSNEU!\INSTALL.TXT
  648.   echo   künftig die "Startautomatik" für das DBBS.>> DBBSNEU!\INSTALL.TXT
  649.   echo.>> DBBSNEU!\INSTALL.TXT
  650.   echo   WICHTIG! In der AUTOEXEC.BAT muß VOR dem Aufruf einer DOS-Shell der Befehl:>> DBBSNEU!\INSTALL.TXT
  651.   echo.>> DBBSNEU!\INSTALL.TXT
  652.   echo                 CALL %lw%%pf%\AUTOHOST>> DBBSNEU!\INSTALL.TXT
  653.   echo.>> DBBSNEU!\INSTALL.TXT
  654.   echo            eingefügt werden! Im Normalfall passiert beim Booten des Rechners>> DBBSNEU!\INSTALL.TXT
  655.   echo            nichts, erst wenn das DBBS aktiv ist, wird die Box automatisch>> DBBSNEU!\INSTALL.TXT
  656.   echo            gestartet. (Vgl. dazu auch das Handbuch!)>> DBBSNEU!\INSTALL.TXT
  657.   echo.>> DBBSNEU!\INSTALL.TXT
  658.  
  659.   del DBBSNEU!\AUTO.INS
  660.  
  661. :AUTO_99
  662. :------------------------------------------------------------------------------
  663.  
  664. :EXDO_0
  665.   if not exist DBBSNEU!\EXDO.INS goto EXDO_99
  666.   echo - Installiere DBBSDOS.BAT
  667.   echo - Installiere DBBSEXT.BAT
  668.   for %%C in (DBBSDOS DBBSEXT) do if exist %%C.BAT copy %%C.BAT %%C.ALT >nul
  669.   if %ins% == NEU goto EXDO_N_1
  670.   for %%C in (DBBSDOS DBBSEXT) do if exist %%C.BAT copy DBBSNEU!\%%C.BAT >nul
  671.  
  672.   echo - Falls die Dateien DBBSDOS.BAT und/oder DBBSEXT.BAT im TELIX-Verzeichnis>> DBBSNEU!\INSTALL.TXT
  673.   echo   vorhanden waren, wurden sie nach *.ALT umbenannt und durch neue ersetzt.>> DBBSNEU!\INSTALL.TXT
  674.   echo.>> DBBSNEU!\INSTALL.TXT
  675.   goto EXDO_1
  676.  
  677. :EXDO_N_1
  678.   for %%C in (DBBSDOS DBBSEXT) do copy DBBSNEU!\%%C.BAT >nul
  679.  
  680. :EXDO_1
  681.   del DBBSNEU!\EXDO.INS
  682.  
  683. :EXDO_99
  684. :------------------------------------------------------------------------------
  685.  
  686. :FAX_0
  687.   if not exist DBBSNEU!\FAX.INS goto FAX_99
  688.   echo - Installiere DBBSFAX.BAT
  689.   if exist DBBSFAX.BAT COPY DBBSFAX.BAT DBBSFAX.ALT
  690.   copy DBBSNEU!\DBBSFAX.BAT >nul
  691.  
  692.   echo - Die Datei DBBSFAX.BAT ist neu! Falls ein FAX-Modem vorhanden ist, kann>> DBBSNEU!\INSTALL.TXT
  693.   echo   in dieser Datei der Aufruf eines FAX-Programms eingetragen werden.>> DBBSNEU!\INSTALL.TXT
  694.   echo   Andernfalls braucht hier nichts geändert zu werden.>> DBBSNEU!\INSTALL.TXT
  695.   echo.>> DBBSNEU!\INSTALL.TXT
  696.  
  697. :FAX_1
  698.   del DBBSNEU!\FAX.INS
  699.  
  700. :FAX_99
  701. :------------------------------------------------------------------------------
  702.  
  703. :RUVO_0
  704.   if not exist DBBSNEU!\RUVO.INS goto RUVO_99
  705.   echo - Installiere DBBSRUF.BAT
  706.   echo - Installiere DBBSVOI.INI
  707.   if exist DBBSRUF.BAT copy DBBSRUF.BAT DBBSRUF.ALT >nul
  708.   if exist DBBSVOI.INI copy DBBSVOI.INI DBBSVOI.ALT >nul
  709.   copy DBBSNEU!\DBBSRUF.BAT >nul
  710.   copy DBBSNEU!\DBBSVOI.INI >nul
  711.  
  712.   echo - Die Dateien DBBSRUF.BAT und DBBSVOI.INI sind neu!>> DBBSNEU!\INSTALL.TXT
  713.   echo   Falls ein Modem mit VOICE-Funktion vorhanden ist, kann in diesen Dateien>> DBBSNEU!\INSTALL.TXT
  714.   echo   der Aufruf einer entsprechenden Software sowie eine nötige Modem->> DBBSNEU!\INSTALL.TXT
  715.   echo   konfiguration eingetragen werden.>> DBBSNEU!\INSTALL.TXT
  716.   echo   Andernfalls braucht hier nichts geändert zu werden.>> DBBSNEU!\INSTALL.TXT
  717.   echo.>> DBBSNEU!\INSTALL.TXT
  718.  
  719. :RUVO_1
  720.   del DBBSNEU!\RUVO.INS
  721.  
  722. :RUVO_99
  723. :------------------------------------------------------------------------------
  724.  
  725. :MSG_0
  726.   if not exist DBBSNEU!\MSG.INS goto MSG_99
  727.   echo - Installiere *.MSG
  728.   for %%C in (ERSTE START NEULING GELEGEN LISTE LETZTE) do if exist %%C.MSG copy %%C.MSG %%C.ALT >nul
  729.   for %%C in (ERSTE START NEULING GELEGEN LISTE LETZTE) do copy DBBSNEU!\%%C.MSG >nul
  730.   del DBBSNEU!\MSG.INS
  731.  
  732. :MSG_99
  733. :------------------------------------------------------------------------------
  734.  
  735. :MENU_0
  736.   if not exist DBBSNEU!\MENU.INS goto MENU_99
  737.   echo - Installiere (NEU)MENU.MSG
  738.   for %%C in (MENU NEUMENU) do if exist %%C.MSG copy %%C.MSG %%C.ALT >nul
  739.   for %%C in (MENU NEUMENU) do copy DBBSNEU!\%%C.MSG >nul
  740.   if %ins% == NEU goto MENU_1
  741.  
  742.   echo - Die Dateien MENU.MSG und NEUMENU.MSG wurden nach *.ALT umbenannt>> DBBSNEU!\INSTALL.TXT
  743.   echo   und durch neue, evtl. umstrukturierte Menüs ersetzt.>> DBBSNEU!\INSTALL.TXT
  744.   echo   Falls eigene Menüs verwendet werden, bitte auf eventuelle Änderungen achten!>> DBBSNEU!\INSTALL.TXT
  745.   echo.>> DBBSNEU!\INSTALL.TXT
  746.  
  747. :MENU_1
  748.   del DBBSNEU!\MENU.INS
  749.  
  750. :MENU_99
  751. :------------------------------------------------------------------------------
  752.  
  753. :NEU_0
  754.   if not %ins% == NEU goto NEU_99
  755.   echo - Installiere USERPASS.SYS
  756.   if exist USERPASS.SYS copy USERPASS.SYS USERPASS.ALT >nul
  757.   copy DBBSNEU!\USERPASS.SYS >nul
  758.   if exist SCRIPT\LOGIN.SLT copy SCRIPT\LOGIN.SLT SCRIPT\LOGIN.ALT >nul
  759.   copy DBBSNEU!\LOGIN.SLT SCRIPT >nul
  760.  
  761.   echo - Es wurden alle für das DBBS benötigten Dateien in das TELIX-Verzeichnis>> DBBSNEU!\INSTALL.TXT
  762.   echo   kopiert. Dateinamen, die bereits existierten, wurden nach *.ALT umbenannt.>> DBBSNEU!\INSTALL.TXT
  763.   echo.>> DBBSNEU!\INSTALL.TXT
  764.  
  765. :NEU_1
  766.   echo - Erstelle Unterverzeichnisse
  767.   md HOSTDWN
  768.   echo Diese Datei können ALLE Level-2-User downloaden!> HOSTDWN\LIESMICH.DAT
  769.  
  770.   md HOSTUP
  771.   echo Diese Datei wurde von irgend jemandem upgeloadet!> HOSTUP\LIESMICH.DAT
  772.  
  773.   md HOSTUP\WERNER
  774.   echo Diese Datei wurde von dem User Werner upgeloadet!> HOSTUP\WERNER\LIESMICH.DAT
  775.  
  776.   md USERDWN
  777.   md USERDWN\WERNER
  778.   echo Diese Datei kann NUR der User Werner downloaden!> USERDWN\WERNER\LIESMICH.DAT
  779.  
  780.   md WICHTIG
  781.   echo Hallo Anrufer!> WICHTIG\AN_ALLE
  782.   echo.>> WICHTIG\AN_ALLE
  783.   echo Dieses ist eine allgemeine Nachricht an Level-2-User.>> WICHTIG\AN_ALLE
  784.   echo.>> WICHTIG\AN_ALLE
  785.   echo.>> WICHTIG\AN_ALLE
  786.   echo Viele Grüße von...>> WICHTIG\AN_ALLE
  787.  
  788.   echo Hallo Werner!> WICHTIG\WERNER
  789.   echo.>> WICHTIG\WERNER
  790.   echo Hier ist eine kleine persönliche Nachricht (nur für Dich).>> WICHTIG\WERNER
  791.   echo.>> WICHTIG\WERNER
  792.   echo.>> WICHTIG\WERNER
  793.   echo Viele Grüße von...>> WICHTIG\WERNER
  794.  
  795.   echo - Es wurden alle für das DBBS benötigten Verzeichnisse angelegt und teilweise>> DBBSNEU!\INSTALL.TXT
  796.   echo   mit erläuternden Dateien versehen.>> DBBSNEU!\INSTALL.TXT
  797.   echo.>> DBBSNEU!\INSTALL.TXT
  798.  
  799. :NEU_99
  800. :------------------------------------------------------------------------------
  801.  
  802. :DRW_0
  803.   if not exist DBBSNEU!\DRW.INS goto DRW_99
  804.   if exist DOORWAY\DRWYVERS.221 goto DRW_1
  805.   echo - Installiere DOORWAY
  806.   if not exist DOORWAY\*.* goto DRW_NV_1
  807.  
  808. :DRW_221
  809.   for %%C in (EXE DOC) do if exist DOORWAY\DOORWAY.%%C copy DOORWAY\DOORWAY.%%C DOORWAY\DRWY_%%C.ALT >nul
  810.   if exist DOORWAY\CLOSEPRT.EXE copy DOORWAY\CLOSEPRT.EXE DOORWAY\CLOSEPRT.ALT >nul
  811.   DBBSNEU!\lha e /m /c DBBSNEU!\DOORWAY DOORWAY\ DOORWAY.* DRWYVERS.221 CLOSEPRT.EXE
  812.   echo.
  813.   for %%C in (MUEHLE.COM DRWY221.ZIP) do if not exist DOORWAY\%%C DBBSNEU!\lha e DBBSNEU!\DOORWAY DOORWAY\ %%C
  814.   if not exist DOORWAY\EXTERN copy DBBSNEU!\EXTERN DOORWAY >nul
  815.  
  816.   echo - Es wurde DOORWAY in der Version 2.21 installiert. Evtl. vorhandene>> DBBSNEU!\INSTALL.TXT
  817.   echo   Dateien wurden zuvor nach *.ALT umbenannt. Desweiteren wurden,>> DBBSNEU!\INSTALL.TXT
  818.   echo   - soweit sie nicht da waren - die Dateien MUEHLE.COM und EXTERN kopiert.>> DBBSNEU!\INSTALL.TXT
  819.   goto DRW_SHW_Hinweis
  820.  
  821. :DRW_NV_1
  822.   md DOORWAY
  823.   DBBSNEU!\lha e DBBSNEU!\DOORWAY DOORWAY\
  824.   echo.
  825.   copy DBBSNEU!\EXTERN DOORWAY >nul
  826.  
  827.   echo - Es wurde unter TELIX das Verzeichnis DOORWAY angelegt und die DOORWAY-Dateien>> DBBSNEU!\INSTALL.TXT
  828.   echo   dorthin kopiert.>> DBBSNEU!\INSTALL.TXT
  829.  
  830. :DRW_SHW_Hinweis
  831.   echo.>> DBBSNEU!\INSTALL.TXT
  832.   echo   HINWEIS: - DOORWAY ist ein Shareware-Programm!>> DBBSNEU!\INSTALL.TXT
  833.   echo              Entsprechende Regeln sind zu beachten!>> DBBSNEU!\INSTALL.TXT
  834.   echo.>> DBBSNEU!\INSTALL.TXT
  835.  
  836. :DRW_1
  837.   del DBBSNEU!\DRW.INS
  838.  
  839. :DRW_99
  840. :------------------------------------------------------------------------------
  841. REM Bis hier Steuerung von "oben"
  842. :------------------------------------------------------------------------------
  843.  
  844. :SHRO_0
  845.   if not exist DBBSNEU!\SHROOM.* goto SHRO_99
  846.   echo - Installiere SHROOM
  847.   copy DBBSNEU!\SHROOM.* >nul
  848.  
  849.   echo - SHROOM.COM wurde neu installiert. Dieses Programm stellt im DOS-Zugang>> DBBSNEU!\INSTALL.TXT
  850.   echo   fast den gesamten Hauptspeicher zur Verfügung.>> DBBSNEU!\INSTALL.TXT
  851.   echo.>> DBBSNEU!\INSTALL.TXT
  852.   echo   HINWEIS: - Falls bei oder nach einem DOS-Zugang aus dem DBBS Probleme>> DBBSNEU!\INSTALL.TXT
  853.   echo              auftreten, sollte das Programm SHROOM probeweise wieder>> DBBSNEU!\INSTALL.TXT
  854.   echo              entfernt werden.>> DBBSNEU!\INSTALL.TXT
  855.   echo.>> DBBSNEU!\INSTALL.TXT
  856.   echo            - SHROOM ist ein Shareware-Programm!>> DBBSNEU!\INSTALL.TXT
  857.   echo              Entsprechende Regeln sind zu beachten!>> DBBSNEU!\INSTALL.TXT
  858.   echo.>> DBBSNEU!\INSTALL.TXT
  859.  
  860. :SHRO_99
  861. :------------------------------------------------------------------------------
  862.  
  863. :SHW_0
  864.   if not exist HOSTDWN\*.* goto SHW_99
  865.   if exist DBBSNEU!\DBBS%vrs%S.EXE copy DBBSNEU!\DBBS%vrs%S.EXE HOSTDWN >nul
  866.   if not exist HOSTDWN\LOGIN.SLT copy DBBSNEU!\LOGIN.SLT HOSTDWN >nul
  867.   del DBBSNEU!\LOGIN.SLT
  868.  
  869. :SHW_99
  870. :------------------------------------------------------------------------------
  871.  
  872. :Inst_Fertig
  873.   echo.
  874.   echo - Die eigentliche Installation des DBBS ist abgeschlossen.>> DBBSNEU!\INSTALL.TXT
  875.   echo   Gestartet wird die Box durch Wechseln in das TELIX-Verzeichnis>> DBBSNEU!\INSTALL.TXT
  876.   echo   und Aufruf von HOST.>> DBBSNEU!\INSTALL.TXT
  877.   echo.>> DBBSNEU!\INSTALL.TXT
  878.  
  879.   if not exist DBBSNEU!\MAILBOX.TXT goto Inst_Ende
  880.   echo   Mailbox für registrierte DBBS - Benutzer>> DBBSNEU!\INSTALL.TXT
  881.   echo   ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀>> DBBSNEU!\INSTALL.TXT
  882.   echo   Nähere Hinweise dazu in der Datei MAILBOX.TXT.>> DBBSNEU!\INSTALL.TXT
  883.   echo.>> DBBSNEU!\INSTALL.TXT
  884.  
  885. :Inst_Ende
  886.   echo  >> DBBSNEU!\INSTALL.TXT
  887.  
  888.   if exist DBBSVERS.* del DBBSVERS.*
  889.   echo DBBS - Kleine Mailbox für TELIX - Version %vn%> DBBSVERS.%vrs%
  890.   echo        (Datei bitte nicht entfernen!)>> DBBSVERS.%vrs%
  891.   del DBBSNEU!\*.LZH
  892.   del DBBSNEU!\DBBSVERS.*
  893.   del DBBSNEU!\AUTOHOST.*
  894.   for %%C in (DBBSDOS DBBSEXT) do if exist %%C.BAT del DBBSNEU!\%%C.BAT
  895.   for %%C in (LHA.EXE DBBS.SLC DBBS.CNF USERPASS.SYS HOST.BAT) do del DBBSNEU!\%%C
  896.   for %%C in (DBBSFAX.BAT DBBSRUF.BAT DBBSVOI.INI EXTERN) do del DBBSNEU!\%%C
  897.   if exist DBBSNEU!\DBBS%vrs%S.EXE del DBBSNEU!\DBBS%vrs%S.EXE
  898.   if exist DBBENEU!\*.INS del DBBSNEU!\*.INS
  899.   if not %ins% == ?.?? del DBBSNEU!\*.MSG
  900.  
  901.   cls
  902.   echo.
  903.   echo.
  904.   echo           ┌────────────────────────────────────────────────────────╖
  905.   if not %ins% == NEU echo           │ DBBS - U P D A T E  abgeschlossen.                     ║
  906.   if %ins% == NEU echo           │ DBBS - I N S T A L L A T I O N  abgeschlossen.         ║
  907.   echo           │────────────────────────────────────────────────────────║
  908.   echo           │ Nachfolgend wird nun die Datei INSTALL.TXT angezeigt.  ║
  909.   echo           │ Diese Protokoll-Datei bleibt jedoch erhalten und kann  ║
  910.   echo           │ später notfalls wieder zu Rate gezogen werden.         ║
  911.   echo           │ Auf Wunsch kann sie aber - wie auch das Handbuch       ║
  912.   echo           │ DBBS.DOC - ausgedruckt werden.                         ║
  913.   echo           │                                                        ║
  914.   echo           ╘════════════════════════════════════════════════════════╝
  915.   echo.
  916.  
  917.   set ins=
  918.   set vrs=
  919.   set vn=
  920.   set lw=
  921.   set pf=
  922.   call DBBSNEU!\ALTPFAD
  923.   del DBBSNEU!\ALTPFAD.BAT
  924.  
  925.   echo               Weiter mit beliebiger Taste...
  926.   pause > nul
  927.  
  928. :Inst_TXT
  929.   cls
  930.   type DBBSNEU!\INSTALL.TXT | MORE
  931.   echo.
  932.   echo.
  933.   DBBSNEU!\ut a            Soll die Datei INSTALL.TXT gedruckt werden (J/N)?
  934.   if errorlevel 1 copy DBBSNEU!\INSTALL.TXT PRN >nul
  935.   if not exist DBBSNEU!\MAILBOX.TXT goto DOC_TXT
  936.  
  937. :Mail_TXT
  938.   cls
  939.   type DBBSNEU!\MAILBOX.TXT | MORE
  940.   echo.
  941.   echo.
  942.   DBBSNEU!\ut a            Soll die Datei MAILBOX.TXT gedruckt werden (J/N)?
  943.   if errorlevel 1 copy DBBSNEU!\MAILBOX.TXT PRN >nul
  944.  
  945. :DOC_TXT
  946.   echo.
  947.   echo            Soll das umfangreiche Handbuch jetzt gedruckt werden (J/N)?
  948.   DBBSNEU!\ut a            (Es kann auch nachträglich mit "PRINTDOC.BAT" gedruckt werden.) 
  949.   if not errorlevel 1 goto Ende
  950.   echo.
  951.   echo            Handbuch wird gedruckt! Das dauert, bitte viel Geduld...
  952.   echo            Nicht unterbrechen, nachher geht es weiter!
  953.   copy DBBSNEU!\DBBS.DOC PRN >nul
  954.   if not exist DBBSNEU!\MAILBOX.TXT copy DBBSNEU!\DBBSBEST.TXT PRN >nul
  955.   goto Ende
  956.  
  957. :------------------------------------------------------------------------------
  958.  
  959. :TELIX_nicht_da
  960.   echo.
  961.   echo 
  962.   if "%2" == "" echo           Verzeichnis: %lw%\
  963.   if not "%2" == "" echo           Verzeichnis: %lw%%pf%
  964.   echo           ┌────────────────────────────────────────────────────────╖
  965.   echo           │ Das angegebene Verzeichnis existiert nicht, bzw. ent-  ║
  966.   echo           │ hält nicht das für das DBBS benötigte Programm TELIX.  ║
  967.   echo           │                                                        ║
  968.   echo           │               Installation abgebrochen!                ║
  969.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  970.   echo           ╘════════════════════════════════════════════════════════╝
  971.   goto Ende
  972.  
  973. :Vers_nicht_da
  974.   cls
  975.   echo 
  976.   echo           ┌─────────────────▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄──────────────────╖
  977.   echo           │                 █ A C H T U N G !!! █                  ║
  978.   echo           │                 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                  ║
  979.   echo           │       Das INSTALL-Programm gehört nicht zu dieser      ║
  980.   echo           │                    Version des DBBS!                   ║
  981.   echo           │                                                        ║
  982.   echo           │               Installation abgebrochen!                ║
  983.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  984.   echo           ╘════════════════════════════════════════════════════════╝
  985.   goto Ende
  986.  
  987. :Datei_nicht_da
  988.   cls
  989.   echo 
  990.   echo           ┌────────────────────────────────────────────────────────╖
  991.   echo           │ Es fehlt mindestens eine der für die Installation des  ║
  992.   echo           │ DBBS erforderlichen Dateien:                           ║
  993.   echo           │                              LHA     .EXE              ║
  994.   echo           │                              UT      .COM              ║
  995.   echo           │                              PRINTDOC.BAT              ║
  996.   echo           │                              DBBS    .LZH              ║
  997.   echo           │                              DBBS    .DOC              ║
  998.   echo           │                              DOORWAY .LZH              ║
  999.   echo           │                              UPDATE  .TXT              ║
  1000.   echo           │                         oder DBBSBEST.TXT              ║
  1001.   echo           │                                                        ║
  1002.   echo           │               Installation abgebrochen!                ║
  1003.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  1004.   echo           ╘════════════════════════════════════════════════════════╝
  1005.   goto Ende
  1006.  
  1007. :Inst_Fehler
  1008.   echo 
  1009.   echo           ┌────────────────────────────────────────────────────────╖
  1010.   echo           │             Interner Installationsfehler!              ║
  1011.   echo           │                                                        ║
  1012.   echo           │   Möglicherweise nicht genügend Environmentspeicher.   ║
  1013.   echo           │                                                        ║
  1014.   echo           │               Installation abgebrochen!                ║
  1015.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  1016.   echo           ╘════════════════════════════════════════════════════════╝
  1017.   goto Ende
  1018.  
  1019. :Disk_Fehler
  1020.   echo 
  1021.   echo           ┌────────────────────────────────────────────────────────╖
  1022.   echo           │                 Installationsfehler!                   ║
  1023.   echo           │                                                        ║
  1024.   echo           │   Datenträger ist schreibgeschützt. Bitte Schreib-     ║
  1025.   echo           │   schutz entfernen und INSTALL erneut starten.         ║
  1026.   echo           │                                                        ║
  1027.   echo           │               Installation abgebrochen!                ║
  1028.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  1029.   echo           ╘════════════════════════════════════════════════════════╝
  1030.   goto Ende
  1031.  
  1032. :TLX_Fehler
  1033.   echo 
  1034.   echo           ┌────────────────────────────────────────────────────────╖
  1035.   echo           │                 Installationsfehler!                   ║
  1036.   echo           │                                                        ║
  1037.   echo           │   Install wurde im TELIX-Verzeichnis gestartet und     ║
  1038.   echo           │   kann nicht ordnungsgemäß ausgeführt werden.          ║
  1039.   echo           │                                                        ║
  1040.   echo           │               Installation abgebrochen!                ║
  1041.   echo           │               ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀                ║
  1042.   echo           ╘════════════════════════════════════════════════════════╝
  1043.   goto Ende
  1044.  
  1045. :------------------------------------------------------------------------------
  1046. :Abbruch
  1047.   for %%C in (SLC CNF HOST AUTO EXDO RUVO FAX RUVO MENU MSG DRW) do if exist %%C.INS del %%C.INS
  1048.   
  1049. :Ende
  1050.   if exist DBBSNEU!\UT.COM del DBBSNEU!\UT.COM
  1051.   set ins=
  1052.   set vrs=
  1053.   set vn=
  1054.   set lw=
  1055.   set pf=
  1056.   if exist ALTPFAD.BAT call ALTPFAD
  1057.   if exist ALTPFAD.BAT del ALTPFAD.BAT
  1058.